
Dim lastFieldNode
Sub Window_onLoad
	'RefreshTable
	RefreshTableMsg
	LoadBody
End Sub

Sub RefreshTable()
	xHTML =  xDoc.transformNode(xStyle.XMLDocument)
	container.innerHTML = xHTML
End Sub

Sub RefreshTableMsg()
	xHTMLMsg =  xDocMsg.transformNode(xStyleMsg.XMLDocument)
	containerMsg.innerHTML = xHTMLMsg
End Sub

Sub LoadBody()
	xHTMLBody =  xbody.transformNode(xbodyStyle.XMLDocument)
	body.innerHTML = xHTMLBody
End Sub
